home *** CD-ROM | disk | FTP | other *** search
/ Language/OS - Multiplatform Resource Library / LANGUAGE OS.iso / a_utils / ffccflow / ffccflow.lha / ffccc+flow / ffccc / CLASS.h < prev    next >
Encoding:
Text File  |  1992-07-31  |  3.0 KB  |  55 lines
  1.       COMMON /CLASS/NCLASS,NPRIOR,NHEADR,IIF,IEND,IFORMT,IRETUR,ILL,
  2.      + ISTMDS(MCLASS,MXSTAT),IALPHA(2,27),IPRIOR(MXSTAT),IHEADR(MXSTAT) 
  3. *IF DEF,NEVER   
  4. *-----------------------------------------------------------------------
  5. *--- contains statement classification information  
  6. *       NCLASS      no. of (internal) classes   
  7. *       NPRIOR      no. of priority statements  
  8. *       NHEADR      no. of header statements
  9. *       IIF         internal number of the logical IF   
  10. *       IEND        internal number of END statement
  11. *       IFORMT      internal number of the FORMAT statement 
  12. *       ILL            -       -      -     illegal     -   
  13. *      ISTMDS(MCLASS,MXSTAT)  control words being   
  14. *                    1 = first ch. in SNAM  
  15. *                    2 = last  ch. in SNAM  
  16. *                    3 = first ch. in SSTM  
  17. *                    4 = last ch. in SSTM   
  18. *                    5 = last significant ch. in SSTM   
  19. *                    6 = external reference number ( class )
  20. *                    7 = priority ( if 0, any order)
  21. *                    8 = char. in descr. after which to start name  
  22. *                        scan.  if 99, start after match string.
  23. *                    9 = stop name scan at stmt. end
  24. *                   10 = statement number classifier, being 
  25. *                        0 if statement cannot contain stmt. numbers
  26. *                        1 if (one) stmt. number must follow key immed. 
  27. *                        2 if all stmt. no.s are inside first bracket   
  28. *                        3 if all stmt. no.s follow immed. first bracket
  29. *                        4 if (one) after FMT=, or second in first br.  
  30. *                   11 = exec flag ( 0 = non-executable)
  31. *                   12 = names flag ( 0 = no names, 1 = one, 2 = any)   
  32. *                   13 = special treatement flag ( if 1) +2 * smflag
  33. *                       where smflag = 1 allows for simple keyword match
  34. *                   14 = routine header flag (0 no, 1 yes)  
  35. *                   15 = type flag: 
  36. *                        0 if types valid for all names 
  37. *                        1 if separate types for first name + rest  
  38. *                        2 if special treatment (IMPLICIT)  
  39. *                        to this, 10 is added if only names outside 
  40. *                        brackets to be taken, +10 for COMMON   
  41. *                   16 = n1 = no. of types for first or all 
  42. *                   17 to 16 + n1 = types   
  43. *                   17 + n1  = n2   
  44. *                   18 + n1 to 21 = types for rest (0 filled)   
  45. *       IALPHA(2,27)   for letters 1 to 26 (A to Z),
  46. *                   first and last class under that letter. 
  47. *                   ( keys are in alphabetic order) 
  48. *                   27 for those not starting with any key. 
  49. *                   if not specified otherwise, those will be   
  50. *                   processed last  
  51. *       IPRIOR(MXSTAT)       refs of priority statements
  52. *       IHEADR(MXSTAT)       refs of header statements  
  53. *-----------------------------------------------------------------------
  54. *EI 
  55.